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COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT eGORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERV 


OFTWARE IS uite UNDER A LICENSE AND MAY BE USED AND sor iee 
N ete CE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
ION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
pentone” MAY rit, BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
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000 
000 
8 0 
000 
000 
38 
000 v03-031 wMC0011 Wayne Cardoza age oh -1984 
3 3 Return correct status after pool expansion fails 
000 v03-030 wMc0010 Wayne Cardoza 23-Aug-1984 
3 3 Output message on pool expansion failure. 
000 v03-029 DAS0002 David Solomon 30-Apr-1984 
3 8 Fix broken branch dent tant tot 
000 v03-028 DASO0001 David Solomon 30-Apr-1984 
Fix broken word reference to IOCSGL_xxx. 
V03-027 CWH3027 CW Hobbs 29-Apr-1984 
Fix broken branch. 
8 v03-026 EMD0072 Ellen M. Dusseault 6-Apr-1984 
° Fix broken branches. 
v03-025 KPLO003 Peter Lieberwirth 31-Mar-1984 
8 Fix register useage bug in EXESALOPHYCNTG. Fix some 
° broken branches. 
v03-024 SRB0118 Steve Beckhart 26-Mar-1984 
Fixed broken branches. 
v03-024 KDM0095 Kathleen D. Morse 23-Mar-1984 
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Maximize size of slave CEB with regular CEB in EXESALLOCCEB. 


ouw 


v03-023 wMC0009 Wayne Cardoza 08-Mar-1984 
Add entry point for non-paged variable length pool. 
v03-022 wacoo00s Wayne Cardoza 25-Feb-1984 
Optimize EXESALLOCBUF 
v03-021 KPLO002 st er Lieberwirth 22-Feb-1984 
Fix bugs in v03-0 specifically: move routine to 
nareeind PSECT, correct pointers that are zero-based. 
v03-020 LY00B83 Larry Yetto 10-FEB-1984 10:10 
Fix truncation errors 
V03-019 KPLO001 Peter Lieberwirth 55-Feb-1984 


hdd XESALOPHYCNTE. routine that allocates physically 
contiguous memory and maps it in system virtual address 


space. 

v03-018 LJK0257 Lawrence J. Kenah 66-Jan-1984 
Add EXESALOPAGWAIT routine that perestess a similar for 
nonpaged pool. Remove EXESALLOCPQB entry point. 

V03-017 DWT0157 David W. Thiel 29-Dec-1983 
Fix broken branches. 

V03-016 TMKO001 Todd M. Katz 13-Nov-1983 
Fix a broken branch. 

V03-015 CWH3015 CW Hobbs 29-0c t-1983 

Fix broken branch. 
V03-014 forees David W. Thiel 


tapreye performance of main path _— h “EXESALLOCATE by 
eting the calculation of the rges free block. 
‘¢ rove performance of EXE SDEANONPG + 5 by avoiding 
call bs CHSRAVAIL on returning a block to a lookaside 
List when the lookaside List was not previously empty. 
Add T EMESDEAPEDS?7 entry point to deallocate an 
arbirtrary quantity of paged dynamic memory. 


v03-013 SRB0098 Steve Beckhardt 19-Jul-1983 
Fixed bug in extending pool. Changed EXESALONONPAGED 
te return SS$_ INSEMEM® on error 


v03-012 SRB0076 Steve Beckhardt 8-Apr-1983 
Modified EXESALONONPAGED to preserve R35. Adde d entry point 
EXESALONPAGWAITS which is similar to BTESALONEAGUALT but 
may be called at IPLS$_SYNCH. 


v03-011 ROW0178 Ralph 0. Weber 5-APR-1983 
Enhance the ‘cannot’ expand ool right now because IPL is 
wrong’ tose in EXESERT wore L to allow pool expansion when the 
current IPL is at or below IPLS$_SYNCH or the processor is not 
running on the interrupt stack.” 
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v03-007 wMc0007 
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grSEe 1 8be Boiasiog ANEMeS Macro VOh OO ky Page 3, 
R. B t Hanna 28-F eb-1983 


empor gjsept ze and address granularity check 
in fe 3 API, T ; yA should be restored when all users 
al tenae on region call EXESALOPIPROC or 


of 
EXE AEPOTIAAG to allocate space. 


Jeffrey W. Horn 10-Feb-1983 
odify Pl routines to round requests to proper allocation 
Soundt ten, 


Steven Jeffreys 20-Jan-1983 
Changed W* to L* to fix Link truncation error. 
Wayne Cardoza 10-Jan-1983 


Fix MOVZBL of PCB length (grew past byte length). 


V03-006 JWHO142 Jeffrey W. Horn 20-Nov-1982 
Optimize routines added in JWHO119. Also allow these 
routines to be called from elevated IPL. 

V03-005 JWHO119 3-Nov-1982 
hdd EXESALOPTIMAG, teeesntori proc, and EXESDEAPI 
rou 

V03-004 CWHOO001 Hobbs 19-Aug-1982 

Add call to SPENDEF macro 
v03-003 yor poy" Wayne Cardoza 31-Jul-1982 


Fill in PFN data base when expanding non-paged pool. 


v03-002 sreqose Steve Beckhardt 2-Jun-1982 


Modified EXESDEALLOCATE to detect overlapping deallocates 
and bugcheck if this occurs. 
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LOCKS 
E TYPE CODES 
ORITY LEVELS 
REA SYMBOLS 
TS & OFFSETS 
EGISTERS 
NUMBERS 
ONTROL BLOCK 
TAPAGE 
S VALUES 
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444 
0000000F 


0000 0 


Sete te Ge Ge 


TTYDEF 
VADEF 


LOCAL SYMBOLS 


"or eeea1 OB boiesi08 Leys VSRCTMEMORYACC MAR; 1 


; TWP 
;DEFINE VIRTUAL ADDRESS FIELDS 


ALLOCATION GRANULARITY MASK 


K=*XF 
$C_ALCGRNMSK==MASK 


~-PSECT AEXENONPAGED 


316 BYTE ALLOCATION GRANULARITY 
; ALLOCATION GRANULARITY MASK 


; NONPAGED EXEC 
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~SBTTL ALLOCATE MEMORY AND CONDITIONALLY WAIT 
EXESALLOCBUF = ALLOCATE BUFFERED 1/0 BUFFER AND CONDITIONALLY WAIT 
is ghoul ine IS CALLED TO ALLOCATE A BUFFERED 1/0 BUFFER. IF SUFFICIENT 
MEMORY IS NOT AVAILABLE, THEN A RESOURCE WAIT STATE IS CONDITIONALLY 
ENTERED DEPENDING ON THE CURRENT PROCESS’ RESOURCE WAIT MODE. 
EXESALLOCCEB = ALLOCATE COMMON EVENT BLOCK AND CONDITIONALLY WAIT 
als a ROUT Ine IS CALLED TO ALLOCATE A COMMON EVENT BLOCK. IF SUFFICIENT 
MEMORY IS NOT AVAILABLE, THEN A RESOURCE WAIT STATE IS CONDITIONALLY 
ENTERED DEPENDING ON THE CURRENT PROCESS’ RESOURCE WAIT MODE. 
EXESALLOCJIB = ALLOCATE JOB INFORMATION BLOCK AND CONDITIONALLY WAIT 
THIS ROUTINE IS CALLED TO PLLOFATE A JOB INFORMATION BLOCK. IF SUFFICIENT 
MEMORY IS NOT AVAILABLE, THEN A RESOURCE WAIT STATE IS CONDITIONALLY ENTERED 
DEPENDING ON THE CURRENT PROCESS’ RESOURCE WAIT MODE. 
EXESALLOCIRP = ALLOCATE 1/0 REQUEST PACKET AND CONDITIONALLY WAIT 
THIS a abe CALLED [e ALLOCATE AN 1/0 PACKET. IF SUFFICIENT MEMORY 
1S NOT AVAILABLE, THEN A RESOU URCE WAIT STATE IS CONDITIONALLY ENTERED 
DEPENDING ON THE CURRENT PROCESS’ RESOURCE WAIT MODE. 
EXESALLOCPCB = ALLOCATE PROCESS CONTROL BLOCK AND CONDITIONALLY WAIT 
THIS poyt ie IS pfALLee TO ALLOCATE A PROCESS Roe BLOCK een 
CREATING A ory,” ROCESS. IF SUFFICIENT MEMORY IS NOT AVAILAB THEN 
i RESOURCE WAIT STATE is, CONDITIONALLY ENTERED DEPENDING ON Fhe CURRENT 
PROCESS* RESOURCE WAIT MODE. 
EXESALLOCPQB - ALLOCATE PROCESS QUOTA BLOCK AND CONDITIONALLY WAIT 
THIS ROUTINE IS CALLED TO ALLOCATE A PROCESS QUOTA B, 0ce et CREATING 
A NEW PROCESS. IF SUFFICIENT MEMORY IS NOT AVAILABLE, THEN A RESOURCE 
be STATE IS ENTERED DEPENDING ON THE CURRENT PROCESS" RESOURCE WAIT 
EXESALLOCTQE = ALLOCATE TIME QUEUE ENTRY AND CONDITIONALLY WAIT 
THIS ROUTINE IS CALLED TO ALLOCATE A TIME QUEUE ENTRY. IF SUFFICIENT 
MEMORY IS NOT AVAILABLE, THEN A RESOURCE WAIT STATE IS CONDITIONALLY 
ENTERED DEPENDING ON Tae CURRENT PROCESS* RESOURCE WAIT MODE. 
INPUTS: 

R4 = NORMALLY CURRENT PROCESS PCB ADDRESS, BUT NOT REQUIRED. 
IF ENTRY AT EXESALLOCBUF, THEN 

R1 = SIZE OF REQUESTED BUFFER IN BYTES. 
OUTPUTS: 


RO = LOW BIT CLEAR IF ALLOCATION FAILURE WITH CALLING IPL PRESERVED. 
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MEMORY ALC = DYNAM L 
vOe-000 MEMORY AND 


LOCAT 
ALLOC C 


CATION 
ONDITI 
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. ENABL 
wpe Qa 


04 DD 0 SHL 
ASSUME 
51 0050 8F 8 MOVZWL 
1F BRB 
Q EXESALLOCJIB:: 
gr 0 PUSHL 
51 0080 8F 0 MOVZWL 
16 BRB 
EXESALLOCIRP:: 
OA PUSHL 
51 dO BF 0 MOVZBL 
OE 0 BRB 
0 EXESALLOCPCB:: 
ge 0 PUSHL 
51 0120 8F 0 MOVZWL 
05 0 BRB 
0 EXESALLOCTQE:: 
0 PUSHL 
0 MOVZBL 
0 20$: MOVPSL 
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DSBINT 
51 PUSHL 
0088 BSBW 
A POPR 
13 50 BLBC 
08 Ae 1 MOVW 
OA A 04 AE § MOVZBW 
53 02 MOVZWL 
8 30$: ENBINT 
5E 08 ADDL 
C RSB 
54  00000000'EF D 40$ MOVL 
ED 24 A4 A 4 BBS 
3 9 MOVZW 
FFA\" C BSBW 
C7 ' BRB 
1 : 
i} ; This routine 


ONALLY WA.T 


a os tot 9 8 33:36 
“SEP=1984 05:45: 


RO = $58 teeenen = INSUFFICIENT MEMORY AVAILABLE TO ALLOCATE 
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RO = LOW BIT SET IF SUCCESSFUL ALLOCATION WITH: 


Ri = SIZE OF REQUESTED BUFFER IN BYTES. 
R2 = rie we BUFFER WITH SIZE AND TYPE FIELDS 


AND IPL SET TO AST DELIVERY LEVEL. 


R4 = ORIGINAL R4 OR CURRENT PCB IF A WAIT OCCURRED. 


LSB 
;ALLOCATE COMMON EVENT BLOCK 
*SET DATA STRUCTURE TYPE 

cease eee NG GT CEBSC_LENGTH 

<CEBSC_ SLAVLNG*MASK>EZ*CCMASK>>, R1 ;AND LENGTH OF BLOCK 


TALLOCATE JOB ig Spall BLOCK = COND WAIT 


#OYN TSET STRUCTURE T 

Hants toe dLENGTHOMASK>E<*CEMASKS>” R1 ;AND LENGTH OF BLOCK 

20$ MERGE WITH COMMON ALLOCATE CODE 
SALLOCATE 1/0 PACKET | = CONDITIONAL WAIT 

#DY ‘SET DATA STRUCTURE TYP 


YPE 
Finest, LENGTH*MASK>E<*C&MASK>>, R1 ;SET SIZE OF BUFFER REQUIRED 
TALLOCATE PROCESS CONTROL BLOCK 
#DYNSC SET DATA STRUCTURE TYPE 
Repose LENGTH#MASK>E<*CMASKD>, R1 ;AND STRUCTURE SIZE 


ALLOCATE TIME QUEUE ee 


#DYNSC T A_STRUCTURE T 
acTOESC. TLENGTH#MASK>B<*CEMASKD. R1_ ;SET SIZE OF BUFFER REQUIRED 
;READ CURRENT PSL 
a1PLS_ SYNCH SYNCHRONIZE ACCESS TO SYSTEM DATA BASE 
sSAVE REQUEST SIZE 
bgsasoeaence sATTEMPT TO ALLOCATE PACKET 
RETRIEVE REQUEST SIZE ~- PREVIOUS IPL 
7; 1F LBC NO_PACKET ALLOCATED 
RI “IRP$W_SIZE(R2) INSERT SIZE OF Pate oe BLOCK 
IR RPSB- TYPE (R2) INSERT DATA STRUCTURE TYP 
sAND CLEAR MISCELLANEOUS BYTE 
PLS_ASTDEL,R3 s;SET TO RAISE TO AST DELIVERY LEVEL 
ALLOW INTERRUPTS 
SP — PSL AND STRUCTURE TYPE FROM STACK 
L“SCHSGL_ CURPCB,R4 ne) $08 guagent PCB ery fi 
pe cB 0$ SET, 


$V SSRWAIT. BCBSL_ stsih NO WAIT 
SN$_RPDYNMEM.RO ONPAGED> DYNAMIC MEMORY RESOURCE NUMBER 
SCuSROAIT Ay te NPOR NONPAGED MEMORY 


is optimized due to heavy useage 
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1 . 
} EXESALLOCBUF: : ;ALLOCATE BUFFERED 1/0 BUFFER 

43 ne MOVPSL =(SP) SREAD CURRENT PSL 
3 DA MTPR #IPLS_SYNCH,APRS_IPL + SYNCHRONIZE access TO SYSTEM DATA BASE 
5 1 p i MOVL RI1,R i SAVE REQUEST SIZE 

00 5 BSBW  EXESALONONPAGED TATTEMPT TO ALLOCATE PACKET 
51 D C 6 MOVL R3,R1 SRETRIEVE REQUEST SIZE 
OF E F BLBC ~— RO, 508 SIF LBC NO PACKET ALLOCATED 
08 ag 8 : : MOVW  R1. IRPS$W_SIZE(R2) INSERT SIZE OF ALLOCATED BLOCK 
OA A2 13 8B 7 MOVW #DYNSC_BOFIO,IRP$B_TYPE(R2) ; INSERT DATA STRUCTURE TYPE 
7A —- 310 ;AND CLEAR MISCELLANEOUS BYTE 
12 02 DA 7A 1 MTPR  #IPLS$_ASTDEL,#PRS_IPL ALLOW INTERRUPTS 
SE 04 £0 7 «31 ADDL  #4,SP SREMOVE PSL FROM STACK 
OB (814 — 

53 BE v0 0081 15 50s: MOVL (SP)+,R3 : TEMPORARILY RETRIEVE PSL 

13 DD 0084 1 PUSHL  #DYNSC_BUFIO :CONDITIONS FOR GENERAL ROUTINE 

5 D 086 1 PUSHL R ‘PUT PSL BACK ON STACK 

53 53 FO 8F 8 08 18 ASHL #-PSLSV_IPL,R3,R3 3; IPL 
BE 11 008D 19 BRB 40$ ‘CONTINUE THE SLOW WAY 
008F $f .DSABL LSB 
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= DYNAMIC MEMORY ALLOCATION 


10$: ADOL 
RSB 
EXESALONPAGWAIT: 
PUSHL 
SETIPL 
BSBB 
BLBS 
BSBB 
20S: SETIPL 
ADDL 
RSB 
EXESALOPAGWAIT 
PUSHL 
SBW 
BLBS 
BSBB 
30$: ADDL 
RSE 


¢ ALLOCATION FAILED. 


0 

EXESALOPAGED 

RO, 30$ 
RWAIT_CHECK_PAG 
#4,SP 


SEP=1984 73 AX/VMS Macro V04-00 Page 

EXESALONPAGWAIT = ALLOCATE MEMORY AND WA "9r8 SEP=1 1382 88: i¢} 38 YeYS. SRCJMEMORYALC.MAR; 1 . 

#4,SP ; REMOVE ADDRESS OF CLEANUP ROUTINE 

RO : SAVE ADDRESS OF CLEANUP ROUTINE 

#lPLs SYNCH + RAISE IPL TO SYNCH 

EXE ACONONPAGED + TRY TO ALLOCATE THE MEMORY 

RO, 20 ; FAILED TO ALLOCATE IT 

RWAIT_CHECK_NP ; CHECK FOR RESOURCE WAIT 

#IPLS-ASTDEL + LOWER IPL TO ASTDEL 

#4,SP ; REMOVE ADDRESS OF CLEANUP ROUTINE 


SAVE ADDRESS OF ee 9 + alata 
iY TO ALLOCATE THE MEMORY 

FAILED TO ALLOCAT 

CHECK FOR RESOURCE. W AIT 

A Baad ADDRESS OF CLEANUP ROUTINE 


IF RESOURCE WAIT MODE IS ENABLED THEN REMOVE CALL 


; FRAME FROM STACK AND WAIT IN CALLER'S MODE. OTHERWISE, RETURN ERROR. 


RWAIT ee PAG: 


USAL 
>, a 


40$: MOVL 


J 
50$: POPL 


-DSABL 


#RSNS_PGDYNMEM 
40$ 


NS WPOyNnEn 
CHSGL_CURP 


P) 


~— 


§ 
§ 
C 
§ 
$ 
0 
§ 
’ 


es _CMSTKSZ,SP 
UAIT 


Oo »>~v8z Ov DT 


VYREVon "wz -Vioar 
xe 


*Anamwum 
ou 


LSB 


; STORE RESOURCE NUMBER 


aR SSRUAIT OP CBSL. stsir 


; JOIN COMMON CODE 


; STORE RESOURCE NUMBER 
GET CURRENT PROCESS PCB ADDRESS 
4),3 $ : B F NOT WAITING 
GET ADDRESS oF CLEANUP ROUTINE 
N CLEANUP ROUTINE 


F_STACK 
BACK UP PC _TO POINT TO CHMK 
WAIT FOR RESOURCE 


<= 
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v04-000 ALLOCATE NONPAGED DYNAMIC MEMORY =SEP=1984 45: SYS.SR cha MORYALC.MAR; 1 (1) 


<= 


EA 4 5 . .SBTTL ALLOCATE NONPAGED DYNAMIC MEMORY 
EA 4 § : EXESALONONPAGED = ALLOCATE NONPAGED DYNAMIC MEMORY 
EA 4 § ; EXESALONPAGVAR = ALLOCATE NONPAGED DYNAMIC MEMORY FROM VARIABLE AREA ONLY 
EA 4 ° : THIS ROUTINE 1S CALLED 10. LOCATE A BLOCK OF MEMORY FROM THE NONPAGED POOL. 
EA 4 é : IF THE BLOCK IS T 1ZE AS AN 1/0 PACKET, AN ATTEMPT IS MADE TO ALLO- 
OEA 4 3: CATE IT FROM THE TOT LIST. 
EA 435 ; INPUTS: 
EA 4&4 $3 
EA 4 ; R1 = SIZE OF BLOCK REQUIRED IN BYTES. 
BFA 4 3 + OUTPUTS: 
OEA 440 ; 
QOEA 44 RO = SS$_INSFMEM IF MEMORY IS NOT AVAILABLE. 
OOEA aes : RO = LOW BIT SET IF MEMORY ALLOCATED WITH: 
OOEA 445: R1 = SIZE OF ALLOCATED BLOCK. 
OOEA 446 ; R2 = ADDRESS OF ALLOCATED BLOCK. 
Me 448 ; OTHER REGISTERS PRESERVED 
OFA 450° 
QOEA 451 .ENABL LSB 
00C6 31 OOEA 43¢ 2008: $ :BAD ALLOCATION REQUEST 
OOED 453 EXESALONONPAGED:: LLOCATE NONPAGED MEMO 
51 00000000 8F D1 OOED 454 CMPL #<IRPSC LLENGTHOMASK>&<*C&MASKD>, RI - SIZE OREATER. THAN IRP ? 
16 1F OOFS 455 BLSSU F LSSU 
Q0000000'EF 51° 01 OF6 436 CMPL  R1, L*IOC$GL_IRPMIN 1S THE get ack TOO SMALL? 
64 1F OOFD 45 BLSSU :YES, TRY SMALL PACKETS 
52. 00000000'FF OF OOFF 438 REMQUE @L“IOCSGL_IRPFL,R2 iR NEROVE FIRST PACKET FROM LOOK ASIDE LIST 
3 1D 196 45 BVS LISTCHK uF VS EMPTY LI 
50 01 20 19 460 ROVL #SS$_NORMAL RO ;SET SUCCESSFUL COMPLETION 
10¢ |= 46 ’ 
51 00000000'EF 1 19 rhe. LRP:  CMPL L*1OCSGL LRPMIN, R1 :SIZE LESS THAN LRP MINIMUM ? 
C 1A 01 ; 464 BGTRU EXESA LON SIF GTRU, YES 
51 Q0000000°EF 01 0115 465 CMPL L“I0C GL URPSIZE, R1 ‘SIZE GREATER THAN LRP ? 
13, «1F «OO11C 466 BLSSU  _ EXESAL TIF LSSU, YES 
52 Q0000000'FF OF O11E 46 REMQUE @L*I0 Oc Sau ACRPFL, R2 ;REMOVE FIRST PACEKT FROM LRP LIST 
so BF ah BIS) HF BihBESESREnmusno ||P YS» OPT LIS 
12A 470 RSB 
021A 30 i 5 133 eens EXESEXTENDPOOL ;ATTEMPT TO EXTEND POOL 
ec 50 £8 01 c £38 BLBS RO, EXESALONONPAGED SRETRY LISTS IF SOMETHING EXTENDED 
1 474 EXESALONPAGVAR: : 
51 OF CO 0131 475 ADDL  #MASK,R1 sROUND SIZE UP To NEXT BOUNDRY 
1 OF CA 0134 47 BICL #MASK.R1 S TRUNCATE SIZE BACK TO MULTIPLE 
is z 4? BEQL 2 0$ if aL L_BAD ALLOCATION REQUEST 
53 0000'CF 4 1 : 138 OVA U=EXESGL NONPAGED.R3 3GET ADDRESS OF yNONPAGED MEMORY LISTHEAD 
14 480 DSBINT (R3)¢ ‘DISABLE INTERRUPTS 
72 10 0146 481 SBB Ss EXE SALLOCATE TALLOCATE BLOCK” 
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MERORY -SEP=1 SYS.SRCJMEMORYALC.MAR; 1 

- .SBTTL ALLOCATE PAGED DYNAMIC MEMORY 

; EXESALOPAGED = ALLOCATE PAGED DYNAMIC MEMORY 

; THIS ROUTINE IS CALLED TO ALLOCATE A BLOCK OF MEMORY FROM THE PAGED POOL. 
} INPUTS: 

R1 = SIZE OF BLOCK REQUIRED IN BYTES. 

OUTPUTS: 

RO = LOW BIT CLEAR IF MEMORY IS NOT AVAILABLE. 


Y 
DYNAN 


RO = LOW BIT SET IF MEMORY ALLOCATED WITH: 


= SIZE OF ALLOCATED BLOCK. 
Re = ADDRESS OF ALLOCATED BLOCK. 


526 EXESALOPAGED: : sALLOCATE ws oes MEMORY 
: ADDL #MASK,R1 ;ROUND SIZE UP TO NEXT gt 
BICL #MASK ,R1 : TRUNCATE SITE BACK TO MULTIP le 

5 BEQL 20$ :1F EQL BAD ALLOCATION REQUEST 
5 SAVIPL ;SAVE CURRENT IPL 
5 PUSHL R4 ssaye REGISTE 
236 MOVAB W*EXESGL_PGDYNMTX,RO GET ADDRESS OF PAGED MEMORY MUTEX 

3 MOVL L*SCHSGL~CURPCB,R4 :GET CURRENT PROCESS ADDRESS 
a3 BSBW SCH HSLOCK ;LOCK PAGED MEMORY DATA BASE FOR WRITE 
35 MOVAB UPEXESGL PAGED ,R3 3GET tha OF PAGED MEMORY LISTHEAD 
536 BSBB azeee LOFAT sALLOCATE BLOC 
2 7? PUSHR iSAVE REGISTERS 

8 MOVAB UMEXESGL. BED YNMTX, RO GET ADDRESS OF PAGED MEMORY MUTEX 
539 BSBW SCHSUNLOCK ; UNLOCK reat MEMORY DATA BASE 
540 POPR PRR. R1,R2,R4> sRESTORE REGISTERS 
ae hs fae ;ENABLE INTERRUPTS 
328 20$: BUG CHECK BADALORQSZ ;BAD ALLOCATION REQUEST SIZE 
ete CLERC RO : INDICATE NO BLOCK ALLOCATED 
546 -DSABL LSB 
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R1 = 
R2 = 
EXESALLOCATE:: 
MOVL _R3,RO 
10$: MOVL O'R 
MOVL  (R2),RO 
BEQL 30$ 
MPL = R1,4(RO) 
BGTRU 10% 
EQL 20$ 
ADDL3 RO_R 
OVL (Rb) 
SUBL3 -R1, ¢ 
MOVAL =(R3 
208: L (RO) 
(RO) 


; NO BLOCK OF THE REQUIRED SIZE COULD BE FOUND. 
: THE LARGEST FREE BLOCK USED TO GO. 


$08: CLRL Re 
RSB 


=> 
mr 
@Wo 
<> 

“4 


=r 
oo 


ION 
SUBROUTINE 
a ~SBTTL GENERAL ALLOCATE MEMORY SUBROUTINE 
; EXESALLOCATE = ALLOCATE MEMORY SUBROUTINE 


THIS ROUTINE IS ww TO ALLOCATE A BLOCK OF MEMORY FROM A POOL WHOSE ENTRIES 


ARE MAINTAINED IN A MEMORY ORDER SORTED LIST. 


= LOW BIT 


4 OCK REQUIRED IN BYTES. 
F ALLOCATION REGION LISTHEAD. 


ie oe 


AX/VMS Macro V04-00 Page 13 
SYS.SRCIJMEMORYALC.MAR; 1 (1) 


CLEAR IF MEMORY IS NOT AVAILABLE. 


R2 = 0 (USED TO BE THE SIZE OF LARGEST BLOCK FOUND) 


= LOW BIT 


sALLOCATE M 
; COPY pte 
;SAVE A 


SET IF MEMORY ALLOCATED WITH: 


SIZE OF ALLOCATED BLOCK. 
ADDRESS OF ALLOCATED BLOCK. 


OF FIR 
OF PREVIOUS FREE BLOC 
F FREE BLOCK 


S EXACT SIZE 

neces FREE BLOCK 

EW FREE BLOCK 

E BLOCK 

EE BLOCK 

D BLOCK, INDICATE SUCCES 


RETURN 0 IN R2 WHERE THE LENGTH OF 


AL rar hed LARGEST FREE BLOCK SEEN 


N 10 
MEMORY ALC = DYNAMIC MEMORY ALLOCATION 16-SEP-1984 00:3 AX/VMS Macro V04-00 Page 14 
vO4=000 DEALLOCATE NONPAGED DYNAMIC MEMORY wSEP=-1984 03:45:08 ESvSvscIMERORVALCmAR;1 = "29° Uf 


.SBTTL DEALLOCATE NONPAGED DYNAMIC MEMORY 
: EXESDEANONPAGED = DEALLOCATE NONPAGED DYNAMIC MEMORY 
: THIS ROUTINE IS CALLED TO DEALLOCATE A BLOCK OF MEMORY TO A NONPAGED POOL. 
: IF THE 4bko K IS A SHARED MEMO ORY BLOCK | TYE THE BLOCK IS DEALLOCATED TO 
CHEMORY 0 HERWISE BLOCK § ADDRESS IS CHECKED TO SEE 
: IF IT UAS ALLOCATED FROM THE 1/0 BkeKey ASIDE LIST AND IF SO 
IT IS RETURNED TO THAT LIST. OTHERWISE rite is MERGED INTO THE NORMAL 
: NONPAGED POOL. 
INPUT: 
IF ENTRY IS AT EXESDEANONPAGED 
RO = ADDRESS OF BLOCK 10 Hi DEALLOCATED. 
IRP$W_SIZE(RO) = SIZE OF BLOCK TO BE DEALLOCATED. 
IRP$B-TYPE(RO) = TYPE oF BLOCK TO BE DEALLOCATED. 
If ENTRY IS AT EXESDEANONPAGED_SIZE 


RO = ADDRESS OF BLOCK TO BE DEALLOCATED. 
Ri = SIZE OF BLOCK TO BE DEALLOCATED (ASSUMED NONZERO) 


+ 


OUTPUTS: 
THE SPECIFIED BLOCK IS RETURNED TO THE APPROPRIATE POOL. 


PERE EE EWAN NIIP) | — - 3 2 3 BOO OCOOCOCOCOOOO0D0O0 


MNO) @ @ = BOOCOCOCO TTT HMMMMMmMmMmMmmmMmmemmmmmmmmmmermmmmmmemmmmmmmnn 
OPW} & ONOM CODA NOD £2 9 OO FP OVUIIMIIIIIIIIIIIIIII II IIT IU UU 
OOOO UNE WD OOO NOAU EWN $$ 9 OD NOU EWI OOOO UE WAN) 0 OO NOUS WAR" OWOVNOOuns 


DDPRDPDPEDPDPE PPP PDP ADA DAA DADA AAA AAA A AAA AAA AE AA AA AAAA AAA AOAAAAH 


PII POPIMIPIPIMIPININ II) a ad a a tt a a a 


SOOOOSOCOSOSOOSOOSOCOSOSOO OOOO OOCOCOSOSOSOOSOSSOOSOSOOOOCOOCOOOOOOOOOOOOOOOOOOO 


.ENABL LSB 
EXESDEANONPAGED: :DEALLOCATE NONPAGED DYNAMIC MEMORY 
OA A 95 STB IRP$B_TYPE(RO) its BLOCK A SHARED MEMORY BLOCK? 
o11¢ 31 BRW EXESDEASHARED SELSE, DEALLOCATE IT 
51 08 AO 3¢ 5$: MOVZWL IRP$W_SIZE(RO),R1 3GET SIZE OF BLOCK IN BYTES 
EXESDEANONPGDSIZ:: ;DEALLOCATE NONPAGED DYNAMIC MEMORY 
50 OF 03 BITL  #MASK,RO [CHECK PACKET ALIGNMENT 
7 12 BNEQ 15$ ‘BRANCH ON ERROR == LET STD. RTN HANDLE IT 
00000000' EF 30 pi CHL RO,L*IOCSGL_SRPSPLIT : SMALL REQUEST PACKET? 
00000000'FF 60 0 INSQUE (RO),@L“IOCS$GL_SRPBL § ;INSERT NEW PACKET AT END OF LIST 
6 i3 BEQL 20% ‘BRANCH IF LIST WAS EMPTY, DECLARE RES. AVL. 
0 RSB :RSB 
0000'CF 50 01 8$ CMPL = RO,W*EXESGL_SPLITADR =; 1/0 REQUEST PACKET 
A 1F BLSSU 108 LSSU N 
00000000'FF 60 of INSQUE (RO), @L“IOCSGL_IRPBL ‘INSERT NEW PACKET AT END OF LIST 
— BEQL 20% ‘BRANCH IF LIST WAS EMPTY, DECLARE RES. AVL. 
05 RSB RETURN 
00000000 EF 50 D1 4 10S: CHPL RO,L*IOCSGL_LRPSPLIT LARGE REQUEST PACKET 
00000000' FF $0 Of 4 INSQUE (RO),@L“IOCSGL_LRPBL § ; INSERT NEW PACKET AT END OF LIST 
i3 4 BEQL 20$ : BRANCH IF LIST WAS EMPTY, DECLARE RES. AVL. 


CREMORY "SSEP=158¢ 89:28:08 USYSYSRchIREMBRvacceman:1 = "#* {, 


si «SBTTL DEALLOCATE PAGED DYNAMIC MEMORY 

; EXESDEAPAGED = DEALLOCATE PAGED DYNAMIC MEMORY 

: THIS ROUTINE IS CALLED TO DEALLOCATE A BLOCK OF MEMORY TO THE PAGED POOL. 
; INPUTS: 

IF ENTRY IS AT EXESDEAPAGED 


RO = ADDRESS OF BLOCK TO BE DEALLOC 
IRP$W_SIZE(RO) = SIZE OF BLOCK TO B 


IF ENTRY IS AT EXESDEAPGDSIZ 


: AT 
: E 
: RO = ADDRESS OF BLOCK 10 8 

E 


ED. 
DEALLOCATED. 


E D. 
Ri = SIZE OF BLOCK TO BE DEA ASSUMED NONZERO). 
; OUTPUTS: 


THE SPECIFIED BLOCK OF MEMORY IS RETURNED TO THE PAGED POOL. 


ete te t-te tee Se Le Le Se Se ee et oe oe oe ot oe oe oP oe ot oe ee 
WIAWODOENU TIT OCOOWOOODDDOODODDOODODOOODODODODODOOO 0 


XESDEAPAGED:: ;DEALLOCATE PAGED DYNAMIC MEMORY 
MOVZWL IRPSW_SIZE(RO),R1 ;GET SIZE OF BLOCK IN BYTES 
EXESDEAPGDSI2Z:: 
BSBB CHECKBLOCK ;CHECK DEALLOCATION PARAMETERS 
SAVIPL ;SAVE CURRENT IPL 
11 ge PUSHR #*M<RO,R4> ;SAVE REGISTERS 
50 Q0O00'CF MOVAB W°EXESGL_PGDYNMTX RO 7GET ADDRESS OF PAGED MEMORY MUTEX 
54 epastag * 4 69 MOVL L“SCHS$GL CURPCB,R4 ;GET CURRENT PROCESS PCB ADDRESS 
FD9D' 69 BSBW SCHSLOCKQ ;LOCK PAGED MEMORY DATA BASE FOR WRITE 
50 8EDO 69 POPL RO sRESTORE REGISTER 
53 0000'CF 3 69 MOVAB W*EXESGL_PAGED,R3 :GET ADDRESS OF PAGED MEMORY LISTHEAD 
29. C1 69 $BB EXESDEALCOCATE ;DEALLOCATE BLOCK 
50 OOOO'CF 9 $8 698 MOVAB W*EXESGL_PGDYNMTX,RO :GET ADDRESS OF PAGED MEMORY MUTEX 
FD8B’ 3 +44 SBW SCHSUNLOCK sUNLOCK PAGED MEMORY DATA BASE 
54 BE 7 89 POPL R4 sRESTORE REGISTER 
50 05 5 7 701 MOVZWL #RSN$_PGDYNMEM,RO ;SET PAGED DYNAMIC MEMORY RESOURCE NUMBER 
FD82' 7B 7 § 308: BSBW SCHSRAVAIL ;MARK RESOURCE AVAILABLE 
4 7 ENBINT sENABLE INTERRUPTS 
05 $s 704 3 
2 705 -DSABL LSB 
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MEMORYALC 
VO4-000 


D 11 
C MEMORY Lae hee AT toe We 


BLOCK PARAMETERS SUBROUTINE 


—Oo0ooO 
~ 


AMI 
LO 
: INPUT PARAMETERS: 
13; RO = ADDRESS OF BLOC 
ay R1 = SIZE OF BLOCK T 
ig + OUTPUT PARAMETER: 
at : R1 = MODIFIED SIZE 0 
19 : (SIZE IS ROUNDE 
50 
7 g CHECKBLOCK: 
8 OR BE FE BUR rustano 
51 OF (6 725 ADDL = #MASK,R1 
"8 BS eh BiEE gyskon 
0 8F 728 10$: BUG CHECK BADDALRQSZ 
BE DS 0293 t 9 TSTC.  (SP)+ 
05 0295 0 20$: RSB 


SEP- 


KT 
08 


~SEP=1 


1986 88:25:08 


~SBTTL CHECK BLOCK PARAMETERS SUBROUTINE 
CHECKBLOCK = CHECK BLOCK PARAMETERS SUBROUTINE 


AX/VMS 
SYS.SR ca 


ro_ V04-00 
EMORYALC. MAR; 1 


ALLOCATED 

LOCATED 

BE DEALLOCATED 

T MULTIPLE OF QUANTUM OF ALLOCATION) 


: CHECK BLOCK PARAMETERS 


O NEXT BOU 
:TRUNCATE $1 SIZE BACK TO MULTIPLE 


i 1F NE 
;BAD DEALLOCATION REQUEST SIZE OR ADDRESS 
;REMOVE RETURN FROM STACK 
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Woec000 GENERAL DEALLOCATION SUBROUTINE g-SEF =} 382 88: 48: 38 Heys SR SR cin MORYALC. MAR; 1 - i 
3. se .SBTTL GENERAL DEALLOCATION SUBROUTINE 
gi ; EXESDEALLOCATE - DEALLOCATION SUBROUTINE 
3 § : INPUTS: 
9 $ ; RO = ADDRESS OF BLOCK TO BE DEALLOCATED. 
9 ; Ri = SIZE OF BLOCK IN BYTES 
: £40 ; R3 = ADDRESS OF ALLOCATION REGION LISTHEAD. 
9 i : OUTPUTS: 
3 44 : NONE 
Bite 
9 ¢3 EXESDEALLOCATE: : :DEALLOCATE BLOCK 
4 0D 029 148 PUSHL 4 SSAVE REGISTERS 
; DD 0298 74 PUSHL Rs 
52 D0 029A 750 10$ MOVL  R3,R2 ;SAVE ADDRESS OF PREVIOUS FREE BLOCK 
5 62 06 90 751 MOVL  (R2),R3 GET ADDRESS OF NEXT FREE BLOCK 
Q 1 AQ 75> BEQL 208 SIF EQL END OF LIST 
53 9 D1 O2A2 7.° CMPL = RO, RB :BLOCK LOGICALLY GO HERE? 
F3 1A (O2A 134 BGTRU 10$ :IF GTRU NO 
3 13 02A7 755 BEQLU 50$ SIF EQLU DOUBLE DEALLOCATION 
60 53 00 A9 136 20$:  MOVL  R3,(RO) ZASSUME NO_AGGLOMERATION 
ns AC 75 EQ. «=s«30$ SEND OF L NO AGGLOMERATION 
54 OCO*SS1 29 C1 02a 138 ADDL3 RO,R1 .R4 CALCULATE ADDRESS OF END OF BLOCK 
54 «653)~«OD1 COeBe)S 75 CMPL =. R3, RG [END OF BLOCK EQUAL TO NEXT IN LIST? 
08 1A 0285 760 BGTRU 30 :1F GTR DO NOT AGGL OMERA TE 
Hi 1F O2B7 761 BLSSU 50$ ‘IF LSS OVERLAPPING DEALLOCATE 
60 ; 00 B9 166 MOVL (R3)+ (RO) MOVE LINK TO BL OCk BEING RELEA SED 
51 C BC 76 ADDL (R3),R1 sACCUMULATE LENGTH OF NEW FREE BLOCK 
54 ‘ D BF 764 30$:  MOVL Re RA : CALCULATE ENDING ADDRESS OF PREVIOUS BLOCK 
82 D C2 765 MOVL RO. (R2)¢ ASSUME NO AGGLOMERATION 
54 e C ¢ 766 ADDL  (R2),R4 [ADD LENGTH TO BLOCK BASE ADDRESS 
54 50S siéi1sCecBOC76 CMPL = RO, RA SEND ADDRESS EQUAL TO BLOCK OBE ING RELEASED? 
0B 1A O02CB 768 BGTRU 40$ :1F GTR DO NOT AGGLOMERATE 
11. «1F O02CD 769 BLSSU 45$ TIF LSS MAY BE OVERLAPPING DEALLOCATE 
51 62 ¢ CF 770 ADDL (Re) RI sACCUMULATE SIZE OF NEW FREE B 
é D be 771 MOVL (RO) .=(R2) :MOVE LINK TO PREVIOUS FREE BLOCK 
5 D D 106 MOVL Re. RO 'SET ADDRESS OF NEW FREE BLO 
04 A0 1 p D8 773 40$: MOVL  R1.4(RO) [SET SIZE OF FREE BLOCK 
53 OBE p DC 774 MOVG (SP)+,R3 SRESTORE REGISTERS 
0 DF 103 RSB 
E r8 45$: ; IF WE COME HERE IT IS EITHER AN OVERLAPPING DEALLOCATE OR R2 
; ore ; (THE PREVIOUS BLOCK POINTER) IS POINTING TO THE LIST HEAD. 
4 7 SUBL  #4,R2 sBACK UP R2 
2 g ¢ : 7 ? CMPL RR (SP) 1S IT LP ORATING TO THE List HEAD? 
F 13 E f ; BEQL § [YES, RESUME IN NORMAL PATH 
EB , 4 50$:  BUG_CHECK DOUBLDEALO,FATAL ;DOUBLE DEALLOCATION OF MEMORY BLOCK 
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vb4-000 ALLOCATE A BLOCK OF Si ARED MEMORY POOL "$23 “SEP=1 198¢ 88: a3: 38 SYS. SRCIM MORYALC.MAR; 1 = (1) 


-SBTTL ALLOCATE A BLOCK OF SHARED MEMORY POOL 
EXESALOSHARED = ALLOCATE A BLOCK OF SHARED MEMORY POOL 


THIS ROUTINE IS CALLED TO ALLOCATE A BLOCK OF MEMORY FROM THE 
SHARED MEMORY POOL. 


INPUTS: 

R2 = ADDRESS OF SHARED MEMORY CONTROL BLOCK (SHB). 
OUTPUTS: 

RO = LOW BIT CLEAR IF MEMORY IS NOT AVAILABLE. 

RO = LOW BIT SET IF MEMORY ALLOCATED WITH: 


Ri = SIZE OF ALLOCATED BLOCK. 
R2 = ADDRESS OF ALLOCATED BLOCK. 


™~ 


+ 


Bete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 


MN PP OS MS HF MH DOOOCOOCOOOCOCOOOOOOOOOO@M° 


OOD NA NE WN O OO NAW EWN O OONAU SE WOOO 


QO00 FF FF HHH HMMM MMMM Mmmmmrmrnrnrrnienicniericvievievicvie ry 
WIN | MD OWINVODOOM OMOOOOOOOOOOOOOOOOOOOOAO 


2 00 09 09 C0 Cd Cd Cd CD 09 GD Cd OD CD CD CO CO CD CD CD CDCO I 


EXESALOSHARED: : :ALLOCATE SHARED MEMORY POOL 
50 04 A2 00 MOVL § SHBSL_DATAPAGE(R2),RO GET ADDRESS OF DATA PAGE 
: (PAGE ALIGNED SO LOW BIT CLEAR) 
514 CLRL sR SINIT RETRY COUNT 
52 OOF8 CO SE 0 10$:  REMQHI $HDSQ_POOL (RO) .R2 ;REMOVE A BLOCK FROM POOL 
09 «OF BCS 0$ 'BR IF QUEUE LOCKED - RETRY 
06 1D BVS 20$ ‘BR IF NO ENTRY - FAILURE 
51 08 Ag 3¢ MOVZWL IRPS$W_SIZE(R2),R1 'GET SIZE OF BLOCK 
5 6 INCL RO SSET SUCCESSFUL COMPLETION 
20$:  RSB ; 
EA 51 0000'CF F3 30$:  AOBLEQ W*EXESGL_LOCKRTRY,R1,10$ ; INCREMENT RETRY COUNT AND TRY AGAIN 
0 RSB s1F RETRIES EXHAUSTED, QUEUE HEADER BAD 


MEMORYALC = DYNAMIC MEMORY ALLOCATION P=1984 00:34: AX/VMS Macro Vv04-00 Page " 
Woeec00 DEALLOCATE A BLOCK OF SHARED MEMORY poo. | Hts? 80:38:38 Heys SRCJMEMORYALC.MAR; 1 . 9) $ 
3 ; .SBTTL DEALLOCATE A BLOCK OF SHARED MEMORY POOL . 

5 ; EXESDEASHARED = DEALLOCATE A BLOCK OF SHARED MEMORY POOL . 

$ ; THIS ROUTINE IS CALLED TO DEALLOCATE A BLOCK OF MEMORY TO THE 8 

3 ; APPROPRIATE SHARED MEMORY POOL. | 

; : INPUTS: ¢ 

9 : : RO = ADDRESS OF BLOCK TO BE DEALLOCATED. C 

4 z : TRPSW.. SIZE(RO) = SIZE OF BLOCK TO BE DEALLOCATED. : 

3 5 : OUTPUTS: ¢ 

; $ ; THE SPECIFIED BLOCK IS RETURNED TO APPROPRIATE SHARED MEMORY POOL. 3 

9 § : RO-R3 NOT PRESERVED. D 

0 , ae 0 

9 4g EXESDEASHARED: : :DEALLOCATE SHARED MEMORY D 

51 OBA C 9 84 MOVZWL 1RPSY SIZE (RO), R1 [GET SIZE OF BLOCK IN BYTES D 
FF? 0 D 44 CKBLOC ; CHECK DEALLOCAT ION PARAME TERS E 

51 OO000'CF DE 031 45 MOVAL OnEXE GL “SHBLIST, R1 [GET ADDR OF SHARED MEMORY E 
1 46 : CONTROL BLOCK LISTHEAD E 

4 ie ASSUME SHBSL_LINK EQ 0 : . 

5161 09 12 rk "  MOVL «= SHBSL_LINK(R1),R1 :GET ADDR OF NEXT SHB E 

2 1 18 50 BEQL F NONE = ERROR E 

04 Al 39 pi 1A 31 CPL RO, SHBSL_DATAPAGE (R1) i CHECK IF BLOCK IS FROM MEMORY E 
18 Al 30 D1 6 38 CPL RO, SHBSL_POOLEND(R1) i CHECK IF BLOCK IS FROM MEMORY E 
53 04 Al 00 6 855 MOVL §§ SHBSL_DATAPAGE(R1),R3 GET ADDR OF DATAPAGE E 
524 " 28 208 CLRL R2 s INIT RETRY COUNT 4 

00F8 c3 «60 = 5D ¢ 38 : INSQTI (RO), SHD$Q_POOL(R3) ;DEALLOCATE BLOCK TO POO E 
A Ie 1 85 BCC :BR IF QUEUE NOT LOCK ty = SUCCESS E 

F352 OQOOO'CF F 3 860 AOBLEQ W*EXESGL_LOCKRTRY,R2,208 j INCREMENT RETRY COUNT AND TRY AGAIN E 
9 861 BUG CHECK BADQHDR sf RETRIES EXHAUSTED, QUEUE HEADER BAD E 

50 03 3 D 6¢ 30$:  MOVZWL #RSN$_NPDYNMEM,RO [SET NONPAGED DYNAMIC MEMORY RESOURCE NUMBER a 
FCBD' 31 4 63 BRW MASRAVAIL :REPORT RESOURCE AVAILABLE AND RETURN t 

4 65 40$:  BUG_CHECK BADDALRQSZ :BAD DEALLOCATION REQUEST ADDRESS E 

05 034 66 RSB ; : 

E 

E 

& 

E 

E 

7 

E 

£ 

E 

£ 

E 

£ 
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Weeec00 EXESEATENDPOOL © EXTEND WONPAGED POOL IF ‘SaseP-19B6 BoresiOg PANEMBS Maceo VOh= 00 at ve 4, § 
iz .SBTTL EXESEXTENDPOOL = EXTEND NONPAGED POOL IF POSSIBLE f 
f ; EXESEXTENDPOOL = EXTEND NONPAGED POOL IF POSSIBLE . 
72 : THIS ROUTINE IS CALLED UPON A FAILURE TO ALLOCATE NON=PAGED POOL AND P 
73 ; IT WILL ALLOCATE ADDITIONAL PAGES FOR ANY OF THE THREE SUBDIVISIONS P 
oh ; OF NONP AGED POOL, THE IRP LIST, THE LRP LIST OR THE VARIABLE ALLOCATION . 
76: P 
r : INPUTS: 
i : NONE 4 
} : OUTPUTS: R 
5 : RO = COMPLETION STATUS 4 
Be ; LOW BIT CLEAR IF NO EXTENSION PERFORMED ; 
e? EXESEXTENDPOOL: : S 
00000000 ' GF iF 3} 8 care “#31 ,G*EXESGL_NONPAGED : 1s INIT RUNNING? : 
gf pc 90 MOVPSL RO : GET CURRENT PSL S 
50 (0S if ED 91 CMPZV #PSLSV IPL #PSLSS_ IPL, = ; CHECK FOR IPL LESS THAN S 
9 36 #IPLS_SYN : OR EQUAL TO IPL$_ SYNCH S 
6 18 9 BLEQU : CONT INUE IF IPL COW ENOUGH S 
2250 1A €1 94 BBC #PSLSV_IS, RO 30$ ; ALSO CONT. IF NOT ON INTERRUPT STACK S 
3E Bg 95 PUSHR is M<R17R2.R3,R4 : SAVE REGISTERS DESTROYED BY FORK S 
09 00000000'EF 00 f 9 BBSS *10CS$6L BrEGIAT. 10$ : BR IF FORK BLOCK IN USE S 
55  00000000'EF ‘ 9 MOVAB fo ibcear _POOLFKB,R5 + GET ADDRESS OF FORK BL $ 
a TES 98 BSBB : PUSH ADDRESS OF CALLER’ s* CALLER 5 
é BA 99 10$ POPR #*M<R1,R2,R3,R4,R5> : RESTORE REGISTERS 5 
D4 4 CLRL RO : INDICATE FAILURE $s 
05 901 RSB : EXIT IF ON hresnuey STACK 5 
FC87" 30 30 20$: BSBW EXESFORK : FORK TO IPL$_QUEUEAST : 
904 : CONTINUATION IS AT IPL=IPL$_QUEUEAST (6) TO PERMIT SAFE ALLOCATION S 
305 : OF PAGES FROM THE FREE PAGE-LIST. $ 
00000000'EF 01 CA $09 ; BICL =s#t ,Le1ocscL PFKBINT Lan FORK Bk oct FREE T 
O3FE 8F BB 308 30$:  PUSHR #*M<R1,R2,R3,R4,R5.R6, Rv R SAVE EGISTERS V 
9 DSBINT CAE XESEL 2 AONPRCED HRONIZE DATABASE V 
55 a 10 CLRL RS ASSUME FAILURE 
11 CHECKIRP: 
3¢ 1 MOVZWL #<1RPSC LENGTHNMASE>ECACEMSED? SIZE wot IRP 
E 91 MOVAB MMGSGC_IRPNEXT,R3 ; SET Abpaess OF NEXT VA 
F of 914 tarorseL ve REN Re : ADDRESS OF PARTIAL PACKET 
F 9E 915 MOVAB OL LOCSGLTIRPCNT R + ADDRESS OF PACKET COUNT 
F O9£ 316 MOVAB LSIOCSGL~IRPFL,R8 : ADDRESS OF PACKET LIST 
F 1 MOVAB W*s@n $GL~ trectifye R9 + ADDRESS OF MAXIMUM COUNT 
5 318 BSBW ss EXTENDLIST : EXTEND LIST 
C 19 naeeeeet™ RO,RS + LOGICAL OR COMPLETION STATUS 
F pO 1 MOVL LIOCSGL_SRPSIZE.R : SIZE OF SRP 
F O9f : MOVAB W*MMGSGL = SRPNEX XT A, : SET ADDRESS OF NEXT VA 
F OO MOVAB L*1OCSGl7s : ADDRESS OF PARTIAL PACKET 
F O96 4 MOVAB L*“IOCSGL~ ~SRPCNT f : ADDRESS OF PACKET COUNT 
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MORYALC = DYNAMIC MEMORY ALLOCATION =SEP=1984 00:34: AX/VMS Macro V04-00 Page 
Meet EXESEXTENDPOOL = EXTEND NONPAGED POOL IF g7 5-138 90:34:38 YOYS SRCIMEMORYALCMAR: 1 . #4) 
58 90009000 EF 3 D4 5 MOVAB L“IOCSGL_SRPFL,R8 ; ADDRESS OF PACKET LIST 
5 ‘Gt D g MOVAB W*SGN Gt SRPCNEV.R9 + ADDRESS OF MAXIMUM COUNT 
i+ E BSBB EXTENDLIS 3 EXTEN 
55 50 € : eeranet RO,RS + LOGICAL OR COMPLETION STATUS 
52 QO000000'EF DO O3E VL L*TOCSGL_LRPSIZE .RG : SIZE OF LRP 
5 ‘CE «OE EC MOVAB W*MMGSGL“LRPNEXT,R : SET ADDRESS OF NEXT VA 
$ QOOOO00'EF 9E O3F 2 MOVAB L*1OCSGL-LRPREM, Re + ADDRESS OF PARTIAL PACKET 
900 "EF «SE O3F8 MOVAB L“IOCS$GL“LRPCNT,R + ADDRESS OF PACKET COUNT 
8 00 09 "EF §«9E O3FF 4 MOVAB L*IOCSGL“LRPFL,R8 + ADDRESS OF PACKET LIST 
5 ‘CE «GE 0406 5 MOVAB W*SGNSGL-LRPCNTV,R9 + ADDRESS OF MAXIMUM COUNT 
F 10 04 E 10S: SBB Ss EXTENDLIST + EXTEND LIST 
55 0 CB 04 BISL ROR + LOGICAL OR COMPLETION STATUS 
F8 E8 041 : BLBS R0,10$ : TRY AGAIN FOR MULTIPAGE PACKETS 
rf $20 CHECKVAR: $ 
41 34 : EXTEND VARIABLE AREA (RS HAS LOW BIT SET IF ANY LIST WAS EXTENDED) 
53 0000'CEF 3 1 803 MOVAB WeHNGSGL _NPAGNEXT .R3 ; GET ADDRESS OF NEXT VA CELL 
20 63 «OE 1B 944 BLBC (R3),90$ : BR IF VARIABLE EXTENSION NOT NEEDED 
50 0000'CF 09 O'CR (C1 18 945 ADDL3 W°SGNSGL_NPAGEVIR, W“HMGSGL NPAGEDYN,RO ; COMPUTE UPPER BOUND 
b 0 D1 346 CMPL — RO, (R3) ; CHECK FOR AT LIMIT 
1B 6 94 BLEQU 9 : BR IF AT OR PAST LIMIT 
0081 30 948 BSBW § EXTENDPAGE + TRY TO ADD ANOTHER PAGE 
50 «(DS B 949 TSTL RO + CHECK STAT 
19 19 D 950 BLSS : BR IF F E 
63 4 CA F 951 BICL #1, (R3) + CLEAR F 
50 63 00000200 8F ¢3 2 93¢ SUBL3 #312, (R3) RO : COMPUTE ADDRESS OF NEW SEGMENT 
A 9200 BF 6 3C A 95 MOVZWL #512, IRP$W_SIZE(RO) : SET SIZE 
gi 06 49 954 MOVL @ : RECORD SUCCESS STATUS 
FD9F 43-955 BSBW XE SDEANONPAGED : ADD NEW PAGE TO POOL 
09 «1 46 936 BRB : AND EXIT 
50 03 3C 0448 957 90$:  MOVZWL #RSNS$_NPDYNMEM,RO t SET RESOURCE TY 
03 & 48 «958 BLBC ‘ : BR IF NOTHING AVAI 
FBAF* 30 4F 959 BSBW SCHSRAVAIL : REPORT RESOURCE AVAILABLE 
50 55 DO 0451 960 100$: MOVL 5,RO : SET COMPLETION 
54 961 ENBINT : RESTORE CALLER'S IPL 
O3FE 8F BA a7 p #°M<R1,R2,R3,R4,R5,R6,R7-RB,RO> ; RESTORE REGISTERS 
5c 
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MEMORYALC = DYNAMIC MEMORY ALLOCATION 16-SEP-1984 00:34: AX/VMS Macro v04-00 Page 23 
Wiee000 EXTENDLIST = EXTEND teat PACKET LIST $78 P= 1382 90:24:38 SYS.SRCJMEMORYALC.MAR; 1 ° 3) 
4 ¢ : .SBTTL EXTENDLIST = EXTEND SELECTED PACKET LIST 
4 c ; EXTENDLIST = EXTEND SELECTED PACKET LIST IF NEEDED 
45¢ : THIS ROUTINE EXTENDS THE SELECTED LIST IF NECESSARY BY ADDING ONE 
r : f : PAGE AT A TIME 
4 ¢ f > INPUTS: 
45¢ re : Re = PACKET SIZE 
45¢ ik: : R3 = ADDRESS OF MMGSGL_xRPNEXT, NEXT VA TO ALLOCATE 
45¢ f ; Ré = ADDRESS OF IOCSGL-xRPREM, ADDRESS OF PARTIAL PACKET 
45¢ 5 ; R7? = ADDRESS OF IOCS$GL-xRPCNT. COUNT OF ALLOCATED PACKETS 
43¢ 7 : RB = ADDRESS OF IOCSGL-xRPFL, LIS D 
4 c ? 6 ; R9 = ADDRESS OF SGNSGL~xRPCNTV, MAXIMUM COUNT TO ALLOCATE 
est 9 3 : OUTPUTS: 
436 3 4: RO = COMPLETION STATUS, LOW BIT CLEAR IF NO EXTENSION OR NOT NEEDED 
rn a 
45¢ 9 § EXTENDLIST: : 
68 58 v1 045C 988 CMPL —RB, (RB) : IS LIST EMPTY? 
rh 1 45F 989 BNEQ : IF NOT, EXIT 
67 69 D1 0461 990 CMPL  (R9), (R7) : CHECK FOR POSSIBLE EXTENSION 
43 15 0464 991 BLEG : NO, LIST IS AT MAXIMUM SIZE 
44 19 466 936 BSBB  EXTENDPAGE : ATTEMPT TO ADD A PAGE 
30 D5 0468 99 TSTL oR t CHECK FOR SUCCESS 
D 19 046A 99% BLSS 70% : BR IF FAILED TO EXTEND 
50 66 D 6C 995 MOVL (R6),RO t GET ADDRESS OF PARTIAL PACKET 
OA 1 Gf 99 BNEQ los : BR IF ONE PRESENT 
50 63 00000200 8F ts 4 99 SUBL3 #512, (R3) RO ; COMPUTE ADDRESS OF NEW PAGE 
51 8 Bd 7B 398 10$ MOVL (89) R1 : GET SIZE OF FRAGMENT 
51 9200 1 43 1 00 MOVAB 512(R1),R1 : AND AUGMENT BY NEW PAG 
1 §2 C3 1001 20$:  SUBL Re R1 : DIMINISH SIZE BY ONE PACKET 
0 1 6 1 : BLSS 308 : BRANCH IF INSUFFICIENT SPACE LEFT 
08 AO B0 1 MOVW R2, IRP$W_SIZE(RO) : SET SIZE 
6 6 C 1004 INCL (RP) : COUNT ANOTHER PACKET 
8 $9 ; c 1005 INSQUE (RO), (RB) : INSERT ON LIST 
0 : cf 1 8 A DL Re RO : ADVANCE ADDRESS 
51 5 C 36 1008 30$ ADDL Re R1 t CORRECT SIZE OF FRAGMENT 
‘ 1 1 BEQL § «6=-_-« 4 O$ : BR IF NO FRAGMENT 
60 51 p 498 ROVE RI (RO) : SAVE SIZE OF FRAGMENT 
6 D4 04A0 1 1 40$: CLRL RO : ZAP FRAGMENT POINTER 
$6 DO O4A2 1013 50$:  MOVL RO, (RO) : SAVE NEW FRAGMENT POINTER 
0 01 p 4A 1 60S: MOVE #1.R0 : SET SUCCESS 
50 bs Xe 1 70$ CLRL = RO : SET FAILURE 
5 04AB 101 RSB 
4AC 1018 


wie -00 Page 24 
16-S$ 4 234: AX/VMS Macro v04-0 
VOacooOr” EXTENDPAGE © ERTEN bose Pie AREA BY ON §- SEF 138 80:33:38 YeYS. SRCIMEMORYALC.MAR; 1 4) 
GAC 1020 .SBTTL EXTENDPAGE = EXTEND SPECIFIED AREA BY ONE PAGE 
tat i $ EXTENDPAGE = EXTEND SPECIFIED AREA BY ONE PAGE 
tak 105% — PROVIDED THAT THE 
: THE SPECIFIED AREA BY ONE PAG 
a UG | eee gee (p SeseAUReCIMOU REE URE te RUE OOD FOR 
tat : ; ; MAY ALSO be PREVENTED IF NO PAGES ARE AVAILABLE oR THE SPECIFIE AIS 
4AC 1 3 P 
tat i : INPUTS: 
tat i ; R3 = ADDRESS OF CELL CONTAINING VA TO BACK WITH PHYSICAL PAGE 
1033 ; 
cae 4 : OUTPUTS: 
: ATUS, NEGATIVE MEANS FAILURE 
tat i $ ; BRS = ADVANCED TD Potuf TO THE NEXT PAGE IF SUCCESS 
tak 1089 R1,R2,R3 PRESERVED 
4AC 1040 :- 
acne 1062 EXTENOPAGE: ; ASSUME FAILURE 
wade aes ae OcAF i rk DSBINT CERES NONPAGED : SYNCHRONIZE 
88 OP Ree idee EXT? ,#VASS_VPN, (R3) ,R2 : GET VIRTUAL PAGE NUMBER 
5 coor RE Es | Rut Rabeelareeustomesin?: SUT Fe 
4C6 104 TSTL R2) ; K FOR ER 
sD 2 cts 1948 Ha Oe Rpuscy _LOLIM,R : err Low LIMIT FOR MODIFY LIST 
2 SOoree «Ch OOtee 1OS0 pt a W*SGNSGL “FRE Hie ; ADD FREE LIST LIMIT ; 
Bbo0'er” $4 &g tbs i A SUBS R1,L*PFNSGL ECHYPGCNT, R1 AND COMPUTE NET FLUID PAGE COUN 
” 1000 Ob Ee EF 3 57 4D 28 cMPL Ri W*SGNSGL ~MAXWSCNT : COMPA E ion ton enous 
r a : ATIL 
of a8 i i9a6 pseu’ NG nT ; AND. ATTEMPT TO ALLOCATE A PFN 
rai ne} i 33 Boer PoRCRI CRS PRS F RESTORE VOLATILE REGISTERS 
3 bs ia 37 gett $ F oR ir IF NO PAGE ALLOCATED 
33 be ra 1 38 att #1 ,1OC$GL_POOLEXP. STS : POOL SUCCESSFULLY EXPANDED 
a Da ars 1904 hove a SU PPMEAT BT m8) * PTE BACK-POINTER 
; AO 1003 MOVE  #PFNSC ACTIVE au"PFNSAB_ STATECROS : STATE IS ACTIVE 
afe | : MOVE #1,aw* Spf NSAB_TYPECRO) TYPE IS SYSTEM PAG 
; e e i 4 BISL3 #cBTESC ERKUTPYESA M_VALID>,RO, cri iyseTebAce, dNTO, SP 
ee f ah iA i 3 tite bsaD weeny a : ADVANCE POINTER TO NEXT PAGE 
4 BA 1 1 3 80S: POPR a Nchi R2> ; RESTORE REG 
3 4 ENBINT 
05 ; : SB 
4 , : Pool expansion failure sai 
£ WRie a ; MESSAGE ALREADY 
: _POOLEXP_STS,80$ : 
EA a 03 Fs ! oe batt #0: Locsct-n9 oPOoL Heliitite LENGTH, RD INE SAGE ADDRESS 
BSE BB HRB, REET “PRS RSI Gh tenon a tee 
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Po} acro V04-00 Page 4, 


ED AREA BY ON 'SaSEP=19RG Bo:ZS:06 LENS ee EEO COe et 
00009900"EF LOCSCONBROCST ; OUTPUT THE MESSAGE 
D1 Bos" 


: INDICATE EXPANSION FAILURE 
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vO4=000 ALLOCATE PHYSICALLY-CONTIGUOUS MEMORY ~SEeT1E8S BO: 78:38 PSNR Gace. vahcOe «| Page 26, 


; »SBTTL ALLOCATE PHYSICALLY-CONTIGUOUS MEMORY 

EXESALOPHYCNTG 

: ha ay and map to system virtual address space N physically-contiguous 
e . 

; Inputs: 

R1 = N = number of physically-contiguous pages 


; Implicit Inputs: 
IPL = SYNCH 


: Outputs: 

; RO = status: SUCCESS, INSFMEM, INSFSPTS 

3 R1 = preserve 

: R2 = presen virtual address of N pages of memory if success 
E 


WOO0000000 0000000000000 0000 


NAME WIN 9S OD NOU ELE WIN  O OD NAME WIN $$ © ODNAU EWN OS ODNAUNE WIN  O ODNAUE UP 


all other registers preserved 
Implicit Outputs: 
None. 


Side Effects: 
MMGSALLOCONTIG called 
IOCSALLOSPT called - so SPTs are allocated 


XESALOPHYCNTG:: 
3A «sé PUSHR #*M<R1,R3,R4,R5> ; save work registers 
; il = input used as loop counter 
; 3 = address of SPT 
; 4 = index into PFN database 
; .c5 = temp storage 
QOOO0000'EF 16 JSB MMGSALLOCONTIG ; find N physically-contiguous pages 
RAGSALL SCONT IS returns: 


0 = first PFN in range, or negative if cannot fulfill request 


55 50 00 MOVL RO,RS 3; success? 
56 «19 BLSS 2 3; get out if none found 
FARR 23 BSBW AOCSALLOSPT 3; allocate N SPTs to map VAs 
57 5 E BLBC RO,30 : if LBC, no system page table slots 


IOCSALLOSPT returns: 
Ri = preserved, R2 = SVPN (index into SPT), R3 = address of SPT 


The main loop indexes backwards through the system page table entries 
and backwards through the PFN database. It goes backwards so that the 
last system virtual address calculated can be returnea to the caller. 


r0 = index into SPT 
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50 34 2! C1 ADDL R} «RE -RO ; start at last SPT and go backwards 
54 1 » ADDL RS,R1,R4 3; start PFNs at end in loop 
108: ; set up syeten page-table entry 
0 o7 DECL RO ; back up SVPN index 
4 07 D DECL RG 3 beck up PFN index 
6340 4 00 F MOVL R4,(R3)CROJ : fill PFN in SPT 


MEMORYALC 
v04~000 


6340 90000000 8F 


>~< 


: Set up PFN database 


N11 
i{VtPOntiguous memory  'Sagepetond Hiacion PeNCVeS Macro vOerOo ., Page 27, 


BISL2 #<PTESC_KW!PTESM_VALID>,(R3)CROJ ; kernel mode access, valid 


EMOR 
yYsIc 
1139 
Vey ; 
1148 
00000000'FF44 1143 ° MOVW #1, @L“PFNSAW_REFCNTCR4) : reference count=1 
9009 O00" Fre oF 1144 MOVB PPENSC ACTIVE OL “PENS _STATECR4) ; statezact ve 
0000000" FF44 1 1145 MOVB tay 2 a ees aL“PFNS TYPECR4] ; type=system 
00000000'FF44 6340 3 1146 MOVAL  (R3)CROJ,aL*PENSAL_PTELR4] ; PTE points to SPT 
H 1123 ; Invalidate system virtual address 
ili 9 9€¢ 1150 ° ASHL. #9,R0,R2 ; turn SVPN into VA 
52 $0000900 f 3A 1189 BISL2 Feat e Re ; aake VA 8 system VA 
Sa? 11 § INVALID R 3; and clear translation buffer 
BE 51 ~ 1} 7 SOBGTR R1,10$ 3; loop N times 
50 } SAD 1155 MOVL #SS$_NORMAL ,RO ; indicates success (R2 has system VA) 
A : 0382 1128 15$: 914g #°M<R1,R3,R4,R5> ; restore work registers 
50 0124 8F 3C 0583 1158 208:  MOVZWL #SS$_INSFMEM,RO $ mo memory available 
F 11 588 1159 RB 15$ 3 return 
50 2044 8F 3C 5BA 1160 30$: MOVZWL 9 #SSS_INSFSPTS,RO 3; no SPTs left 
EF 11 Trad 1183 BRB 15$ 3 return 
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vOe-000 ALLOCATE PHYS] ALLYSCONT I GUoUS MEMORY tee Yi 9:23:58 USYS\SRCIMEMORYALC. MAR; 1 : #) 
0000 “PRES! YSEXEPAGED 
~SBITL *** THE FOLLOWING ROUTINES ARE IN THE PAGED EXEC *e* 
»SBTTL EXESALOPIPROC = ALLOCATE MEMORY FROM PROCESS ALLOCATION REGION 


3+ 
: EXESALOPIPROC = ALLOCATE MEMORY FROM PROCESS ALLOCATION “EGION. 


This routine is settee to allocate memory from the Process Allocation Region 
for those requests which need memory beyond the life of an image. 


INPUTS: 
R1 = SIZE OF BLOCK REQUIRED IN BYTES. 

OUTPUTS: 
RO = LOW BIT CLEAR IF MEMORY IS NOT AVAILABLE. 
RO = LOW BIT SET IF MEMRY ALLOCATED WITH: 


Ri = SIZE OF ALLOCATED BLOCK 
R2 = ADDRESS OF ALLOCATED BLOCK 


R3 Destroyed. 

ENVIRONMENT: 
Called from EXEC or KERNEL modes, this routine will switch 
ange rst me mode and disable ASTs to perform the actual 
allocation. 


IPL = O or ASTDEL 


OOOO COSCCOCOO OOOO OOCOOOOOOOSOOSOOOO 


EXESALOP1PROC:: 
F ADDL #MASK,R1 3 round size to next peunéry 
OF A BICL #MASK,R1 3 truncate size back to multiple 
0060 30 BSBW = P1SYNCH $ get to correct mode, AST level 


: Now in Kernel Mode with ASTs disabled 


53 00000000'9F ef MOVAL a@#CTL$GQ_ALLOCREG,R3 
1A7' a 


EXESA LOCATE 
SUBL R1,@#CTLS$GL_PRCALLCNT 


get List head address 
allocate block 

et out on error 

eep track of space in use 
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0 29 E9 
00000000 * 9F 1 ce 


AM f MEMORY ALLOCATION bin i oe dh 90:78:38 Hee vee Macro V04-00 Page q, 


CAT 
IMAG = ALLOCATE MEMORY FROM PRO SEP= SYS.SRCJMEMORYALC .MAR; 1 
-SBTTL EXESALOPTIMAG = ALLOCATE MEMORY FROM PROCESS ALLOCATION REGION 


MEMORYALC ~ 
v04-000 Ext 
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+ 
EXESALOP1IMAG = ALLOCATE MEMORY FROM PROCESS ALLOCATION REGION. 
This routine is called to allocate memory from the vee Allocation 


R gion for those requests which need memory only for the Life of an image. 
spre Few ne will expand PO space to extend the process allocation region 


1. There is not enough space left in the Process Allocation Region to 
satisfy the request, or 


2. The space left in the Process Allocation Region is less than 
SGNSGW_CTLPAGES = SGNSGW_CTLIMGLIM, and 


3. The Linker option NOPOBUFS has not been selected. 
: 4. The routine is called at IPL 0. 

; INPUTS: 

: R1 = SIZE OF BLOCK REQUIRED IN BYTES. 

} OUTPUTS: 

; RO = LOW BIT CLEAR IF MEMORY IS NOT AVAILABLE. 

; RO = LOW BIT SET IF MEMRY ALLOCATED WITH: 

E 


SIZE OF ALLOCATED BLOCK 
ADDRESS OF ALLOCATED BLOCK 


R1 
R2 
R3 Destroyed. 
ENVIRONMENT: 

Called from EXEC or KERNEL modes, this routine will switch 
Mg = ee mode and disable ASTs to perform the actual 
allocation. 


IPL = 0 or ASTDEL 


XESALOP1IMAG:: 
ja ae: ADDL #MASK,R1 ; round size to next boundry 
51 OF GA BICL #MASK,R1 ; truncate size back to multiple 
00C2 0 BSBW PISYNCH ; get to correct mode, AST level 


+ Now in Kernel Mode with ASTs disabled 


ee eee ee eee eee ee ee ee eS SS 
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netted 0 POLPREALL CHT can we get any P1? 


branch if not. 
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HMORY FROM PRO 'SaSEP=1984 O9:43:00 LeVSERCIAEMORYarcemaR:1 — P29® 39) 


AL 42 tee: Be AbLOCREs. R3 get list head address 
EXESAL allocate block 

on error 9°, ery PO space 
keep trac space bs use 
get PO space if not enough 


n~< 
PZ 
~ 

-— 
or 


53 sree * 


C ; 
‘ee POS REE atewt 
$ 108 


= 
oO 
A 
> 
4 
—J 
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eae resel. PRCALLCNT 


° backup count 
ESDEALLOCATE 


set up for DEALLOCATE 


reopened 


i" § 
00000000"9F : 
0 

i. 


COOOOOOGOOOOCO CO 


R1 
MOVL Re 
EX 


E 
A 
F 127 
¢ Re 
i 
; 1 fe 
1 8 
° 127 
! Hi 
02 g. ! , BSBW ; return space 
Q v4 6 16ug POSPACE:. ag fail 
ume failure 
6A 00000000" 9F 6 EO 1584 BBS, FIMPSY NOPOBUFS. a#PIOSGU_IIOINPA, 408 h-if cant p 
5S 00000000°9F DE 905 1 MOVAL @a#CTLSCQ_POALLOC.R3 Pg BR yeh comedies 
0153' 3 064 1 10$: BSBW EXESALLOCATE try t t 
5D 50 28 09 : ! 8 BLBS RO LOS bebneh % evel adie 
O6A 1290; 
83 ° } $3 : SPACE NOT AVAILABLE ON PO LISTHEAD, EXPAND REGION TO GET IT 
06A 1293 ° 
O04 A d5 GOga 1294 TSTL 4(SP) 3 l PL? 
85 93 boed 1998 BNEG 408 S renth i) not, 
Bet 1 38 SETIPL #0 ; lower IPL 
51 bp 072 129 PUSHL R1 3 Save request size 
51 51 F7 Bf re Te } 4 face Tl a ; get size of request in pages 
3: one more 
10 51 401 0078 1300 CMPL R1,#16 3 at leas (je% penest 
03 18 OO7E 1301 BGEQ 20$ > branch 
51 10 bP 0 b 1 § MOVL #16,R1 ; set 16 He. then 
52 7ESO7E 99 1303 208:  MOVAQ =(SP),R2 ; get space for RETADR 
44 ° } : SEXPREG_S acwt . ‘ 3 expand PO 
$0 6 1 6 RETADR = (RO), = 
0086 i ACHODE = #PSLEC_KERNEL, ~ 
28 50 —=s«éE9 03 1309 BLBC RO 308 ; get out on error 
, } 19 SSETPRT_S - _ cR2) 3; change page protection 
$9 1 1 ACMODE = #PSL$C_KERNEL, - 
9 131 PROT = #PRTSC_UREW 
13 50 58 AD 1314 BLBC RO, 30$ ; get out on error 
: f D 1315 MOVa (SP) +.RO 3; get address range 
1 : fe ! 18 oa RO,R1 ; get size of area 
oB8 1 | SETIPL 4 $_ASTDEL ; restore IPL 
0108" 30 131 BSBW Gx } yd pal 3; put new apace on List 
5 BE 9 1 9 MOVL : restore R 
Al 1 : } ; go back and try request 
5E OC AE cs (1 30$: MOVAL 12(SP),SP ; pop temp space, saved R1 
BE ce } : Te RSB 3 oe return ’ : 
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EXESDEAP1 = RETURN MEMORY TO PROCESS ALLOCATION REGION 


This routine is called to return memory allocated via the EXESALOP1IMAG 
or EXESALOPIPROC routines. 


INPUTS: 
RO = ADD BE DEALLOCATED. 
R1 = $12 ES 

OUTPUTS: 
RO-R3 Destroyed. 

ENVIRONMENT: 
Called from EXEC or KERNEL modes, this routine will switch 
into KERNEL mode and disable ASTs to perform the actual 
de-allocation. 


IPL = 0 or ASTDEL 


EXESDEAP1:: 
-BSBW OC 
BSBB.OCéPP 


ow 

Da 
oO 
oO 
x 
. 


; check deall parameters 
3 get to correct mode, AST lL 


; Now in Kernel Mode with ASTs disabled 


1. BR Be BBC #30 R? 10$ ; branch if PO address 
53 _00000000'9F DE MOVAL a@#CTL$GQ_ALLOCREG,R3 t get List head address 
00000000'9F 51 ¢ ADDL R1,@#CTLSGL_PRCALLCNT ; keep track of space 
07. «W111 BRB 20$ 
53 00000000'9F bf 10s: MOVAL @#CTL$GQ POALLOC,R3 ; get PO List head 
O1AE' 3 208: pseu EXESDEALCOCATE 3 return space 
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Y 
NE “SEP=1 SYS.SRCJMEMORYALC .MAR; 1 


~SBTTL P1 SYNCH ROUTINE 


- 


yen into kernel mode if yy rite gS It 

-s° ls the euerout ine PIKERN via . ne PiReh service or a CALLG instruction 
epend ng on the current mode. PIKERN subroutine performs a JSB 

HH to 1SYNCH* s return a+ . perform the actual allocation 

routine after disabling ASTs. Upon return from PIKERN, P1SYNCH 

pops it's return address and RSBs to it's caller's calller. 


Tale routine is called to swi 


Hie 
—9 1 é 
—9 1 6 
E9 137 
E9 137 
E9 137 
3 1 
fo 
iB 
E9 1385 PISYNCH: 
5 oc —E9 1 § VPSL R2 3; get PSL 
2 ie E1 eB 1 BBC er SUSY .CURAOD .R2. 108 ; branch if not Ly EXEC mode 
g Be os 6 8 PUSHR #*M<RO,R1> 3 push input ar 
53 2 fr. 3 MOVL 3; get argument ist address 
F4 1390 SCMKRNL 4 = ; go into kernel mode 
OF4 1391 OUTIN = 30$, - 
OF4 1 36 AR LST = (R35 
OE BA 193 139 POPR #*M<R1,R2,R3> ; get return R1,R2, pop return addr 
05 19? ! iy : return to caller's caller. 
3s &@ 198 ! 38 10$: MOVL (SP)+,R3 3 get routine address 
13? 1398 20$: DSBINT M#IPLS_ASTDEL ; raise IPL 
63 16 O10F 1399 JSB (R3) 3 go back to routine 
111. 1400 ENBINT 3; lower IP 
05 1 1? 1 RSB 
000C 113 14 § 30$: -WORD “M<R2,R35> 
50 6C 7D 0117 1404 MOVa = (AP) , RO : get input args 
53 08 AC DO O11A 1405 MOVL BCAPS R3 : get routine address 
? 10 OIE 14 $ BSBB 20$ 3 Synch and call routine 
6C 1 7D Q1 14 MOVQ R1, (AP) 3; return R1,R2 values 
04 01 14 : RET 
124 140 
0124 1410 END 
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Symbol table 823E b= 1382 9:23:58 Uys. SRC JMEMORYALC.MAR; 1 2 (1) 


$$T1 = 00000000 EXTENDPAG 4AC R 0 
BUGS _BADALOROS reeeeeee TAPSY.NOPDBUF S = $bo00008 . 
BUGS BADDALRQS eereeeee =X IOCSACLOSPT eeneeres 
BUG$_BADQHDR eenenere =X IOCSCONBROCST eeeeeeee x 
BUGS — DOVeL DE ALO eeeeeene 8 §6X {OC S6L..tRESL. eeeeneee = 
CEBSC_LEN 38 LOC$GL-IRPCNT eeeereee 
CEBSC SE AVLNG 44 IOCSGL_IRPFL aeereeee 
CHECKBLOC 8 R IOCSGL-IRPMIN eeneenee x 
CHECKIRP 8 {OCSGL_IRERER aerereee Xf 
CHECKLRP ES R 1OCSGL-LRPBL eenenene 8 6X 
CHECKSRP BA R I1OCSGL_LRPCNT eeneeere x 
CHECKVAR 00413 R LOCSGL_LRPEL eteeeeee = § X 
CTLS$GL_PRCALLCNT eteereee xX 1OCS$GL-LRPMIN eeeeeeee YX 
CTL eee ALL eeeeeeee =X IOCSGL_LRPREM eeeneeee 8 X 
CTL$GQ_POALLO eeeeeeee =X IOCSGL_LRPSIZE senna =X 
DYNSC_ = 9006 3 IOCSGL-LRPSPLIT eeeeeere =X 
DYNSC_ = 00000004 1OC$GL_PFKBINT teeeeeere x 
DYNSC_IRP = Q000000A IOCS$SGL_POOLEXP_STS eeeeenee x 
DYNSC_JIB = 0000002F IOC$GL_POOLF eeeneeee 
DYNSC_PCB = 000 6 C 1OC$GL-~SRPBL teeeeeee Xx 
YNSC_T = 000 F I1OCSGL_SRPCNT eeenenee =X 0 
EXESACLOCATE 000001BA RG 8 IOCSGL_SR eeneaeee =X 3 
EXESALLOCBUF 00000061 RG IOCSGL_SRPREM eeeeeeee =X 2 
LOCCEB 4444 00 RG 0 IOCSGL_SRPSIZE eeeneeee =X 0 
EXESALLOCIRP 0000012 RG IOCS$GL_SRPSPLIT aeeneeee =X 0 
EXESALLOCJIB $4 09 RG 1OC$GT-NOPOOL_TwP eeneeere = X 0 
EXESALLOCPCB 8 1A RG IPL$_ASTDEL = af 
EXESALLOCTQE 0000023 RG 0 IPL$_ SYNCH = 0000000 
EXESAL PAG 0000 on RG 0 IRP$B_TYPE = 464 
EXESALONPAGVAR 00000131 RG 0 IRPSC_LENGTH = 00 4 
EXESALONPAGWA 00 oe RG IRP$W_SIZE = 00000008 
EXESALONPAGWAITS 83 8F JIBSC"LENGTH = 00000074 
EXESALOP1 IMAG 00001 LISTCAK 000012B R 02 
EXESALOP1PROC 3 0 LRP 0000010¢ 8S 
EXESALOPAGED 1 0 MASRAVAIL eexerere XX 0 
EXESALOPAGWAIT 0 oF MASK 0000000F 
EXESALOPHYCNTG 0 50 8 MMGSALLOCONTIG eeeeeeee x 0 
EXESALOSHARED : see MMGSALLOCPFN eeeeneee YX 
XESC_ALCGRNMSK F MMGSGL_IRPNEXT aeeneree =X 0 
EXESC CMSTKSZ gereeeee MMGS$GL_LRPNEXT eeeneere KX 0 
EXESDEALLOCATE 0 $9? MMGSGL_NPAGEDYN aeeenere =X 0 
EXESDEANONPAG E GSGL_NPAGNEXT eeeeeeer XK 0 
EXESDEANONPGDS12Z 1F1 MMGS$GL_SPTBASE eeneeene = 
EXESDEAP1 ce GSGL-SRPNEXT eeeeeree xX 
EXESDEAPAGED & MPWSGW"LOLI aeaeeeee =X 
EXESDEAPGDS1Z 4 POSPACE 98 933 R 
EXESDEASHARED ? PISYNCH R 
EXESEXTEND PCBSC_LENGTH = 120 
EXESFORK fererere = §=6X PCBSL_STS = 8 4 
EXESGL_LOCKRTRY eererere 8X PCBSV_SSRWAIT = A 
EXESGL_NONPAGED eeeeeeee =X PFNSAB_STATE eeenenee = § 6 
EXESGL_ PAGED eeereeee § YX PFNSAB_TYPE eeenenee =X 
EXESGL_PGDYNMTX eenereee § X PFNSAL_PTE eeereeee 
EXESGL_SHBLIST eeeerere 8 6X PENSAW REFCNT eeereree 
EXESGL_SPLITADR arereeee § PFNSC_ACTIVE = 98000007 
EXTENDCHK 900001 22 R er Nee SYSTEM 1 
EXTENDLIST 45C R PFNSGC_PHYPGCNT aenenere xX 02 
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Symbol table ety 9:28:38 USYS. SRCIMEMORYALC MAR: 1 . (1) 
£1 9Ses tIOLAPA soeeeees 03 
= 
PRETBIS = Oo000034 
PRTSC_UREW teenrere 03 
PSLSC_KERNEL = 
PSLSS_IPL = 
PSLS$V_CURMOD = 
palette = 1 
PSLSVIS 2 iA 
PTESC_ERKW = 
PTESC_KwW = 
PTESM VALI = 
RSNS_RPDYNMEM = 
RSNS_PGDYNMEM s 9 
RWAIT_CHECK_| Ci 
or CHECK PAG 000080 
SCHSGC_CuRPC eteenene =X 
SCHSLOCK eeeeeere 
SCHSRAVAIL eteneene =X 
6 opto eeeeeeee 
OCcK eeeeeeee Xf 
Sweet FREELIM eeeeener =X 
=IRPCNTV eeekeeee YX 
SGN L_LRPCNTV eeeereee =X 
$s _MAXWSCN eeereeee =X 
SGNSGL rte d ba eeeeeere =X 
$ “SRPCNT eteeenee x 
SHBSL  BATAPAGE = 00000004 
$ “LINK = 000 9 0 
SHBSL_POOLEND = 0000001 
SHD$Q_ POOL = 000000F 
SR 000163 R 02 
SS$_INSFMEM = 00000124 
SSS_INSFSPTS = 90 44 
AL = 01 
SYSSCMKRNL eeerenee GX 0 
SYSSEXPREG eeeereee GX 0 
SYSSSETPRT groesees GX 
TQESC_LENGTH = 00900 
TTY$K~WB_LENGTH . 0 
VASS_UPN > 9015 
VASV_VPN = 4 
bem nnn neem ances ae + 
H Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
» ABS . 008 ( -» QO ¢ 9-3 NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
SABSS 0003 ? ( -»> O71 ¢ +1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 
AE XENONPAGED O07 54 ( 37 ) ¢ ( ¢°} NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
YSEXEPAGED ( af ( 3.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 
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VAX=11 Macro Run Statistics oe PS BC eas So Oe wale f 


poonmemeaac nase onrocann ence ocna $ 


! Performance indicators ! 


tere eter momen ewe e ser ee ee Sh 


Phase Page faults CPU Time Elapsed Time 


Initialization 0 :00:00.04 ‘8 34 
Command processing 121 :00: +38 705.19 
Pass 1 4 of 48.36 
Symbol table sort -50 :00:08.04 
Pass 25 :00:04.34 00:14. 
Symbol table output 25 :00:00. :00:00. 
Psect synopsis output :00:00. :00: 2 
Cross-reference output © :00:00. 0:00:00. 
Assembler run totals 87 : 4.34 0:01:19.4 


The working set Limit was 1800 pages. 

99738 bytes (195 pages) of virtual memory were used to buffer she intermediate egde. 

There were 90 pages of symbol table space allocat g to hold 1604 non-local he 67 local symbols. 
1410 source Lines were read in Pass 1, produc ing object records in Pass 2. 

40 pages of virtual memory were used to define 59 macros. 


+ 
H Macro Library statistics H 


Macro Library name Macros defined 


~$52280UA 8:CSYS.OBJJLIB.MLB; 1 2 
$255$DUA28: CSYSLIBJSTARLET.MLB;2 1 
TOTALS (all Libraries) 36 


1737 GETS were required to define 36 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:MEMORYALC/OBJ=O0BJ$:MEMORYALC MSRC$:MEMORYAL“/UPDATE=(ENHS:MEMORYALC) +EXECML$/LIB 
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